home *** CD-ROM | disk | FTP | other *** search
/ Aminet 19 / Aminet 19 (1997)(GTI - Schatztruhe)[!][Jun 1997].iso / Aminet / dev / amos / KyzerAMOScode.lha / Scroller.AMOS / Scroller.amosSourceCode < prev   
Encoding:
AMOS Source Code  |  1992-09-03  |  1.2 KB  |  38 lines
  1. ' rubbish y-scaler scroll by kyzer/csg 4/95  
  2. ' use joystick: left=move up, right=move down, up=shrink, down=grow
  3. Amos To Front 
  4. Default Palette 0,0
  5. '
  6. A$="Scrolly scrolltexts, how do I love thee?  Let me count the ways... one 1000! two 1000! three 1000! four 1000! says Roger Rabbit. How did he get into showbiz, and why did Jessica marry him?"
  7. L=Len(A$)-1 : V=Varptr(A$) : C=0
  8. '
  9. Screen Open 0,400,70,2,0 : Cls 0 : Double Buffer : Autoback 0 : Screen Hide 
  10. 'Get Fonts : Set Font 4
  11. B=Text Base
  12. Screen Open 1,320,256+70,2,0 : Cls 0 : Double Buffer : Autoback 0
  13. Screen Display 1,,48,,256 : Fade 6,,$FF0
  14. '
  15.  Extension_12_094C 127
  16.  Extension_12_0016 
  17. HGT=16
  18. Repeat 
  19.    Screen 0
  20.    M$= Extension_18_0150(V+C,1)
  21.    M=Text Length(M$)
  22.    Text 320,B,M$
  23.    Add C,1,0 To L
  24.    Screen 1
  25.    For A=0 To M Step 2
  26.       Screen Swap : Wait Vbl : Extension_12_03A6 1
  27.       Screen Copy Physic(0),2,0,400,70 To Logic(0),0,0
  28.       Screen Copy Logic(0),0,0,320,70 To Logic(1),0,256
  29.       Areg(0)=Logbase(0)+10240 : Areg(1)=Logbase(0)
  30.       Add HGT,Jup(1)-Jdown(1)
  31.       Add DST,Jleft(1)-Jright(1)
  32.       Dreg(0)=70 : Dreg(1)=HGT : Dreg(2)=DST
  33.       Call 8
  34.    Next A
  35. Until Extension_12_03B8 
  36.  Extension_12_0006 
  37.  Extension_12_094C 0
  38. End